` BƢؠ BƢ iʽ1R   @ Y >Lh}   0LV ɩ өHyHHTHjjLBAS2BOOT (c)1999 JindroushLoading DISKMEND.BAS 9:;QAANDENSTASECMASECSIFILSIQNEXSEFBYSECNUBY  00-- DISKMEND -- by Justin Wilder, Sept 1985g6-@1;@@,;,;@,;,96.NE6-A@Q6-A(]@g A%-A6A""!% {+AA:(@Z(@ diskmend commands{(@($(@ret GET NEXT SECTOR@(@ SECTOR # + 1\(@ SECTOR # - 1z(@rEDISPLAY SECTOR(@2k(@dIRECTORY LIST@(@uNDELETE/CLOSE FILE`(@tRACE SECTOR CHAINk(@<j(@ mODIFY LINKS>(@cHANGE SECTOR BYTES_(@wRITE SECTOR TO DSKj(@FY(@ pRINT SCREEN>(@hELP (COMMAND MENU)Y(@ qUIT DISKMENDP.'*( ĠҠ .Z0A@dS +AA@(ŠҠ FILE I(,S A n + APx1 &A(6-%A('6.Y1 A ! 6-6-6.N! A 0+Ap1 &A(6-%A('6.Y1 A # 6-%6-6.N# A 0-A) !6-&A(6.Y) A + 6-&6-&A(!6.N+ A 4H@04PA 6-6-4DA@4UA4TA@ 4QA A/AAH9 B=+@ )!A4MA  4W A  @"4CA ,4RA@6$ A06-A:,6-$6.N@;  )!1( ңԠƠ 1 TO ; @J0 6-6-4N! AP0- Get SectorT AP @^a+AA3( DENSITY SECTORL(BYTE# HEX CHARa-- Print Sector SRr-%A'@|# >$6-?:A6<, # =!A`* Ai2(٠ :6-%=$8"A`)"A$-( à 56-%8$. @#( Ԡ +6-%.$/ A0/( =  Ԡ = 74( Š = F:A,  = F:A,7$6-?:AA<&,$-+6-A`6---- Directory List?AA?(%ţ ͠ ' 6-% AP'( SECTOR ;-A!A3@(F:, +(16-; @p ( @@7-%@%@B(>:F:,,F p( F:%@,%AV$F:%@,l@@&4(F:%,%AV$F:%@,F@@3O6-F:,[!A'b(Dl A )!@c(A"!@)(*$!@$P:'@,$(-O/(6-% /F:@, @A`!Ag6- @* ( PUSH TO CONTINUE* @&DAi6-?:Ai,"(6-2 AD-- Drive Status0h6.SINGLE6-A (6-A(76-F:AF,C!A'O6-A@^6.ENHANCEDh A:(!@16-AV(6.DOUBLEDBAp@'Aq@d1 AB-- Read SectorN1!(ΧԠĠ '6-1 @X$bGAi!ArAS3As@G-- Disk Access SRl6-?:A<<,$v2B:,!@7<,4$) AP26.=:, 6- $* 6--@B:,*-- Hex to DecG6-@:7,,%!@G* @X=6-$@%&@HG A;!@d* @q16-$@%&@U; A@26-6 ' $   $K(̠ԡ%A 7AAA AK @ AP-- Change BytesLA@ !-@L(&MOVE CURSOR, CHANGE LINE, PUSH -)(!OR ENTER COMMAND OR SECTOR NUMBER-@B:, @$AA*6-6-@!@ @E6.7@, AP+6.7@,E )!%A A *-%@*B:, @A O6.7@,+7@<@,4 EA!%@:7@,,O A+ AP* AV+A!% )  A 4Y6-) @* A049 APA@d9-- Write sector to disk>/+( WRITE SECTOR  TO DISK (Y/N)/H, 0Y"(SECTOR NOT WRITTEN, ApRVAp@'AqA(1 A5L(ˠŠҡV Ap\(SECTOR WRITTENfAA$pa+AA# A C6-F:%,%AV$F:%@,I6-a(} ҠzQ(FILE  ,-%@%@7(>:F:,,; Q( START SECTOR=% 6- A A0%6-%aF:A,(7( FILE # MISMATCH @ SECTOR Q( CHECK PREV SEC LINKSW6-a @A P' "(END6-6-' @I(( FILE SIZE ERROR9( SECTORS INSTEAD OF ?6-I @/F:A %,&@/(PARTIAL SECTOR?F:@,!@5( PUSH TO CONTINUE? @$ (,!F:@,!@5$( A ^)( FILE NUMBER or TO ABORT-7 A0@6-A:,^ )!@cAs6-P:'@,"6-%AaD6-@$+&$@,%A!N APWF:, i( NO FILE# s A ,)6-F:%@,%AV$F:%@,,$1 APA@ 1-- Modify LinksS1 @)!AY* Ai)")!A#I(ϠӠϠS @9&( NEW NEXT SECTOR # or *94Apg A06-A:,D @)!AY* Ai))!A#](ĠҠg A@$ 6-.C( NEW FILE # or #*496-F:A,C A8D A06-A:,& )!@c:(ĠŠD ApBD6-P:'AV,,A%&AV$DA%@$%L A  @VY A3"AAD6-@@&@ $N:F:@,,Y(Ǡ`C'6-F:@,%AV$F:@,&;-%@$C-j-6.>:F:%,,3-6.>:@:,&A(,t3`*2{)4|A`~'6.>:@:,%@2,3_'6.. 67,. 3 )AA A) @-#( ҠӠԠ- ApQ+A@d# A )6-I(ǯ FILE Q6.B: 6-6- A# A0:F:A,"A0O 6- A-A%$@;A%E APO A@ 6. A@ 6-%AD 6- A$6-P:'AV,6%&AV$D%@P @:, AP(7( COPY TO ANOTHER DISK :(@6-F6-P @))104,141,254,2,104,170,104,72,24,105**253,133,214,138,105,3,133,215,142,72''3,169,11,141,66,3,104,160,254,132 %%216,48,2,177,214,72,74,74,74,74&&160,1,132,217,16,3,104,41,15,201%%10,144,2,105,6,105,48,32,86,228())198,217,16,238,169,32,32,86,228,2302**216,48,247,164,216,192,8,144,210,160<((0,152,72,177,214,201,155,208,2,169F((46,32,86,228,104,168,200,192,8,144P**236,142,254,2,96,104,104,104,170,189Z%%251,3,72,41,3,133,213,104,74,74d))133,203,189,252,3,133,212,189,253,3n))133,204,96,104,133,213,169,83,141,2x((3,32,83,228,136,132,212,96,104,104$$141,9,3,104,141,8,3,104,141,11##3,104,141,10,3,169,49,141,0,3##169,7,141,6,3,32,89,228,172,3""3,136,132,212,132,213,96,ENDD:DISKMEND.BAS